home *** CD-ROM | disk | FTP | other *** search
- --property ancestor, PmyLocH
- --
- --global
- --
- --
- --on new me, whichSprite, whichCell, whichLocH, whichHandler
- --
- -- set ancestor to new(script "constantHotSpot", whichSprite, whichCell, whichHandler)
- --
- -- set the loch of sprite whichSprite = whichLoch
- -- set PmyLoch = whichLocH
- --
- -- return me
- --end
- --
- --
- --on moveOn
- -- set the locH of sprite the PmySprite of ancestor = PmyLoch
- --end
- --
- --
- --on moveOff
- -- set the locH of sprite the PmySprite of ancestor = -5000
- --end
-